home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / dockob / buta.kob < prev    next >
Text File  |  1996-02-12  |  2KB  |  72 lines
  1. dim int c(4095)
  2. dim int pl(15)={0,8456,61400,52944,40260,27584,19136,38678,0,0,0,0,0,0,0,65535}
  3.     /*pl={0,8456,40926,34518,23882,15302,8902,20246,0,0,0,0,0,0,0,65535}
  4.  
  5. dim int bk(7)={ &h200,&h200,&h400,&h000,&h600,&h600,&h800,&h000 } /* 動き
  6. dim int dx(9)={ 0, -6,0,6, -6,0,6, -6,0,6 }
  7. dim int dy(9)={ 0, 6,6,6, 0,0,0, -6,-6,-6 }
  8. dim int ms(9)={ 0, 0,3,1, 0,0,1, 0,2,1 }
  9.  
  10. int mk=3,an,dn=0,dw,da
  11. int x=180,y=110
  12.  
  13. int f,i
  14.  
  15.     f=fopen( "pig2.pat", "r")
  16.     fread( c, 4096, f )
  17.     fclose( f )
  18.  
  19. WindowTitleOpen( 0, WINX, WINY, 384, 256, 0, "豚です。", 3 )
  20. GraphicInit( 0, 16, pl )
  21. ITIME=6
  22. end
  23.  
  24. func Eredraw( wno )
  25.     DrawClear( wno, 2 )
  26.     DrawGraphicClear( wno, 0 )
  27.     DrawGraphicPut( wno, x,y,x+15,y+31, c, mk*&h1000+bk(an) )
  28. endfunc
  29.  
  30. func Einterval( wno )
  31.     int s,x0,y0
  32.  
  33.     if dn then dance():return(1)
  34.  
  35.     s=stick( 1 )
  36.     if s then {
  37.         x0=x:y0=y
  38.         x=x+dx(s)
  39.         y=y+dy(s)
  40.         if x<8 or x>360 then x=x0
  41.         if y<8 or y>224 then y=y0
  42.         an=(an+1)and 7
  43.         if mk<>ms(s) then {
  44.             an=0
  45.             mk=ms(s)
  46.         }
  47.         DrawGraphicFill( 0, x0,y0,x0+15,y0+31, 0 )
  48.         DrawGraphicPut( 0, x,y,x+15,y+31, c, mk*&h1000+bk(an) )
  49.     }
  50.     if strig(1) then dn=60:dw=1:da=0
  51. endfunc
  52.  
  53.  
  54.  
  55.  
  56. func dance()
  57.     if dn>10 then {
  58.         dw=dw-1
  59.         if dw<=0 then {
  60.             dw=(60-dn)/10
  61.             DrawGraphicPut( 0, x,y,x+15,y+31, c, (da and 3)*&h1000+&h0a00 )
  62.             da=da+1
  63.         }
  64.     } else if dn>1 then {
  65.         DrawGraphicPut( 0, x,y,x+15,y+31, c, mk*&h1000+&h0c00 )
  66.     } else {
  67.         DrawGraphicPut( 0, x,y,x+15,y+31, c, mk*&h1000 )
  68.         an=0
  69.     }
  70.     dn=dn-1
  71. endfunc
  72.